home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / cdrom / qaudsta2.scr < prev    next >
Encoding:
Text File  |  1994-09-07  |  699 b   |  30 lines
  1. @thread QAUDSTA2.LOG
  2. @NewAlias cd1 CDROM.GRA
  3. @IMPORT SYSINFO2.TXT
  4. cd1 LOG $PROMPT="LOGGING QUERYAUDIOSTATUS2"
  5. cd1 LOG $PROMPT="THREAD 1"
  6. cd1 set ADDRESSMODE=REDBOOK
  7. cd1 set TIMESTART=02:09:00 TIMESTOP=06:40:00
  8. cd1 CDROM_OPEN
  9. cd1 CDROM_PLAYAUDIO 
  10. cd1 response $PROMPT="PLAYING AUDIO FOR 40 SECONDS" $PAUSE=40
  11. cd1 CDROM_STOPAUDIO
  12. cd1 CDROM_CLOSE
  13. @flush cd1
  14. *
  15. *
  16. *
  17. @thread QAUDSTA2.LOG
  18. @NewAlias cd CDROM.GRA
  19. @IMPORT SYSINFO.TXT
  20. cd LOG $PROMPT="LOGGING QUERYAUDIOSTATUS2"
  21. cd LOG $PROMPT="THREAD 2"
  22. cd CDROM_OPEN
  23. cd response $PROMPT="WAITING FOR 15 SECONDS" $PAUSE=15
  24. cd response $PROMPT="QUERYING AUDIO STATUS" $PAUSE=1
  25. cd CDROM_QUERYAUDIOSTATUS
  26. cd CDROM_CLOSE
  27. @flush cd
  28.  
  29.  
  30.